10 REM CAPS-LOCK FOR THE C-64 BY JIM PARTIN
20 FORT=49152TO49198:READDT:POKET,DT:NEXTT
30 SYS49152:POKE49153,0:POKE49154,224:POKE49156,0:POKE49157,224
40 POKE49162,255:POKE49192,255:SYS49152
50 FORT=53000TO53053:READA:POKET,A:NEXTT
60 FORT=193TO218:READAD:POKE60289+AD,T:NEXTT
70 SYS53000
80 PRINT"CTRL-F1 TO ACTIVATE CAPS-LOCK"
90 PRINT"CTRL-F3 TO DEACTIVATE":END
100 DATA173,0,160,141,0,160,172,5,192,192,191,240,23,238,1,192,238,4,192
110 DATA173,4,192,240,3,76,0,192,238,2,192,238,5,192,76,0,192,172,4,192,192
120 DATA255,240,3,76,13,192,96
130 DATA120,169,21,141,20,3,169,207,141,21,3,88,96,165,197,201,4,240
140 DATA7,201,5,240,17,76,49,234,173,141,2,201,4,208,4,169,53,133
150 DATA1,76,49,234,173,141,2,201,4,208,4,169,55,133,1,76,49,234
160 DATA10,28,20,18,14,21,26,29,33,34,37,42,36,39,38,41,62,17
170 DATA13,22,30,31,9,23,25,12